1 PRINTCHR$(14)CHR$(8):POKE53280,0:POKE53281,0:PRINT""
10 PN$="[196][201][211][203] [201][196] [195][200][193][206][199][197][210]":
20 PRINT"[147] "+PN$+" ":PRINT"[205]IT DIESEM [208]ROGRAMM KOENNEN [196][201][211][203]-[206][193][205][197]"
30 PRINT"UND/ODER [196][201][211][203]-[201][196] GEAENDERT WERDEN."
40 FORL=1TO13:PRINT"[163][163][163]";:NEXT:PRINT:PRINT:X$="0"
50 DV=VAL(X$)
60 DV$=X$:IFDVAND254THENPRINT"[145][145][145][145][145][145]":GOTO40
70 PRINT"[193]ENDERUNG VON  [196][201][211][203]-[206][146][193][205][197]":PRINTTAB(10)"ODER [196][201][211][203]-[201][146][196] ?";
80 PRINT"     ([206][146]/[201][146])  ";:GOSUB220:IFX$<>"N"ANDX$<>"I"ANDX$<>"X"THENPRINT"[145][145][145][145]":GOTO70
85 PRINTX$:IFX$="X"THENPRINT"[147]":END
90 PRINTX$:OPEN15,8,15:PRINT#15,"I"+DV$:OPEN1,8,3,"#":PRINT#15,"U1:3"DV",18,0":IFX$="N"GOTO170
100 PRINT#15,"B-P:3,162":GET#1,A$,B$,C$,D$,E$:PRINT"[196]ERZEITIGER [196][201][211][203]-[201][196] IST  "A$;
110 PRINTB$;C$;D$;E$:INPUT"[206]EUER [196][201][211][203]-[201][196] (MAX. 5 [218]EICHEN) ";NI$
111 IFLEN(NI$)<>4THENI$=LEFT$(NI$+" ",5)
120 PRINT#15,"B-P:3,162":PRINT#1,NI$;:PRINT#15,"U2:3"DV",18,0
130 I$[178]"I"[170][202]([196](DV),2):[152]15,I$
160 [138]
170 [152]15,"B-P:3,144":DN$[178]"":[129]L[178]1[164]16:[161]#1,A$:DN$[178]DN$[170]A$:[130]
180 [153]"STR$ERZEITIGER STR$RIGHT$(null)(null)-(null)ATN(null)VAL IST:":[153]:[153]" "[170]DN$[170]" "
190 [153]"(null)EUER STR$RIGHT$(null)(null)-(null)ATN(null)VAL ( MAXIMAL 16 (null)EICHEN! ) ":[133]ND$:[153]
200 ND$[178][200](ND$[170]"              ",16)
210 [152]15,"B-P:3,144":[152]1,ND$;:[152]15,"U2:3"DV",18,0":[137]130
220 [161]X$:[142]